
 1000  *SAVE S.FUNNY DIVIDE BY FIFTEEN
 1010  *--------------------------------
 1020  BYTE   .EQ 0
 1030  *--------------------------------
 1040  T      LDA #0
 1050         STA BYTE
 1060  .2     LDX #15
 1110  .1     JSR DIVIDE.BY.FIFTEEN
 1120         JSR $FDDA
 1130         INC BYTE
 1140         BEQ .3
 1150         DEX
 1160         BNE .1
 1170         JSR $FD8E
 1180         JMP .2
 1190  .3     RTS
 1200  *--------------------------------
 1210  DIVIDE.BY.FIFTEEN
 1220         LDA BYTE
 1230         LSR
 1240         LSR
 1250         LSR
 1260         LSR
 1270         ADC BYTE
 1280         ROR 
 1290         LSR
 1300         LSR
 1310         LSR
 1320         ADC BYTE
 1330         ROR 
 1340         LSR
 1350         LSR
 1360         LSR
 1370         RTS
 1380  *--------------------------------

